home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / Opus55SV / Installera next >
Text File  |  1996-10-11  |  2KB  |  83 lines
  1. ; $VER: Installera Opus55SV (11.10.96)
  2. ;
  3. ; Script to install the Swedish translation of Opus 5.5.
  4. ;
  5. ; Original script written by Edmund Vermeulen <edmundv@grafix.xs4all.nl>.
  6. ;
  7. ; Modified for Swedish by Magnus Holmgren <cmh@lls.se>.
  8.  
  9.  
  10. ;=============================================================================
  11. ; Check if Directory Opus 5 is already installed
  12.  
  13. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  14.     (abort "Directory Opus 5 måste installeras först.")
  15. )
  16.  
  17. (set @default-dest "")
  18.  
  19. ;=============================================================================
  20. ; Install catalogs
  21.  
  22. (copyfiles
  23.     (source  "")
  24.     (dest    "DOpus5:")
  25.     (pattern "Catalogs")
  26. )
  27.  
  28. ;=============================================================================
  29. ; Install Swedish versions of the default buttons
  30.  
  31. (copyfiles
  32.     (source  "Buttons")
  33.     (dest    "DOpus5:Buttons")
  34.     (pattern "#?")
  35. )
  36.  
  37. ;=============================================================================
  38. ; Make Swedish lister menu the default
  39.  
  40. (if (askbool
  41.         (prompt "Vill du kopiera den svenska listarmenyn till 'lister "
  42.                 "menu'?\n\nDen gamla menyn kommer att kopieras till "
  43.                     "'lister menu_old'."
  44.         )
  45.         (help   "Den svenska versionen av listarmenyn innehåller samma "
  46.                 "funktioner som den meny som följer med Opus."
  47.         )
  48.     )
  49.     (
  50.         (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
  51.         (copyfiles
  52.             (source  "DOpus5:Buttons/lister menu_svenska")
  53.             (dest    "DOpus5:Buttons")
  54.             (newname "lister menu")
  55.         )
  56.     )
  57. )
  58.  
  59. ;=============================================================================
  60. ; Make Swedish user menu the default
  61.  
  62. (if
  63.     (askbool
  64.         (prompt "Vill du kopiera den svenska användarmenyn till "
  65.                 "'user menu'?\n\nDen gamla menyn kommer att "
  66.                 "kopieras till 'user menu_old'."
  67.         )
  68.         (help   "Den svenska versionen av användarmenyn innehåller samma "
  69.                 "funktioner som den meny som följer med Opus."
  70.         )
  71.     )
  72.     (
  73.         (rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
  74.         (copyfiles
  75.             (source  "DOpus5:Buttons/user menu_svenska")
  76.             (dest    "DOpus5:Buttons")
  77.             (newname "user menu")
  78.         )
  79.     )
  80. )
  81.  
  82. (exit)
  83.